home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 February / Macworld (2000-02).dmg / Shareware World / Comms & Internet / Flex-Able 1.0 / Flex-Able Templates Folder / upload_and_form.able < prev    next >
Text File  |  1999-12-07  |  2KB  |  71 lines
  1. <:set form <:read_form>>
  2.  
  3. <!-- add more extensions if you want them -->
  4. <:set optionlist 
  5.             "<OPTION SELECTED>
  6.             <OPTION>.html
  7.             <OPTION>.txt
  8.             <OPTION>.gif
  9.             <OPTION>.jpg
  10.             <OPTION>.doc
  11. ">
  12. <:set maxcount 5>
  13.  
  14. <HTML>
  15.     <HEAD>
  16.         <TITLE>Upload Files With Form Data</TITLE>
  17.     </HEAD>
  18.     <BODY BGCOLOR="#F0F0F0">
  19.  
  20.     <H2>Upload Files With Form Data</H2>
  21.         
  22.         This page shows a way to accept file uploadds from strangers without overwriting any existing files of yours or any that were uploaded by other users.  All files go into a subfolder named "/uploaded-items/", and the extra form data is saved to a log in the same directory, along with date, time, the name under which the file was saved, etc..  It is suggested you put some security in place on this folder to prevent unauthorized access to it.<P>
  23.  
  24.         The user is given no choice in what the file should be named, but in most cases the file will be saved with the same (or similar) name as it had on the local user's local machine, baring any conflicts with existing files.  However, files uploaded with Internet Explorer for Windows will often be named crypticly because of Microsoft's non-compliant browser software.<P>
  25.  
  26.     <BLOCKQUOTE>
  27.     
  28.  
  29. <:require form["file1"] form["email"] form["status"]>
  30.     <:set oldfile form["file1"]>
  31.     <:set newfile <:make_unique_file <:cat "/uploaded-items/" oldfile>>>
  32.     <:move_file oldfile newfile>
  33.     <:save_data "/uploaded-items/log.txt" <:date> <:time> newfile     form["status"] form["name"] form["email"]>
  34.     <B>Your file has been received and saved as "<:echo newfile>"</B><P>
  35. <:else>
  36.     <B>Please provide a file to upload, plus the requested contact information for tracking purposes.</B>
  37. <:/require>
  38.  
  39.  
  40. </BLOCKQUOTE>
  41.  
  42. <H2>Select files to upload</H2>
  43. <FORM METHOD=post ACTION="upload_and_form.able" ENCTYPE="multipart/form-data">
  44.     <TABLE>
  45.         <TR>
  46.             <TH>Item</TH>
  47.             <TH>Data</TH>
  48.         </TR>
  49.         <TR>
  50.             <TD>File to submit</TD>
  51.             <TD><INPUT TYPE=FILE NAME="file1"></TD>
  52.         </TR>
  53.         <TR>
  54.             <TD>File's status</TD>
  55.             <TD><SELECT NAME="status"><OPTION>Draft<OPTION>Final Candidate<OPTION>Final</SELECT></TD>
  56.         </TR>
  57.         <TR>
  58.             <TD>Your name</TD>
  59.             <TD><INPUT TYPE=TEXT NAME="name" SIZE=40></TD>
  60.         </TR>
  61.         <TR>
  62.             <TD>Your email address</TD>
  63.             <TD><INPUT TYPE=TEXT NAME="email" SIZE=40></TD>
  64.         </TR>
  65.     </TABLE>    
  66.             <INPUT TYPE=SUBMIT VALUE="Send Files">    <INPUT TYPE=RESET VALUE="Clear">
  67. </FORM>
  68.  
  69.     </BODY>
  70. </HTML>
  71.